(Fdefun): Signal an error if NAME is not a symbol.

diff --git a/src/eval.c b/src/eval.c
index e1da1def4468f8b97856d5d5064e313805c40db9..096755f9c77485de3176b85d9b2df768cc3783be 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -617,6 +617,7 @@ usage: (defun NAME ARGLIST [DOCSTRING] BODY...)  */)
   register Lisp_Object defn;
 
   fn_name = Fcar (args);
+  CHECK_SYMBOL (fn_name);
   defn = Fcons (Qlambda, Fcdr (args));
   if (!NILP (Vpurify_flag))
     defn = Fpurecopy (defn);